home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / HI-RES MOVER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  15 lines
  1. 10  REM HI-RES PAGE MOVER
  2. 20  TEXT : HOME 
  3. 30  HTAB 14: INVERSE : PRINT ":HI-RES MOVER:": POKE 34,2: NORMAL 
  4. 40  PRINT : PRINT "LINES 1000-1010 OF THIS PROGRAM ARE": PRINT "INTENDED TO BE USED AS A SUBROUTINE IN": PRINT "YOUR OWN PROGRAMS."
  5. 50  PRINT : PRINT "IN ESSENCE IT IS A VERY FAST HI-RES": PRINT "PAGE MOVER."
  6. 60  PRINT : PRINT "AFTER PERFORMING A 'GOSUB 1000', ALL": PRINT "YOU NEED TO DO IS 'POKE 773' WITH THE": PRINT "NUMBER OF THE 'FROM' HI-RES PAGE TIMES": PRINT "32, THEN 'POKE 781' WITH THE NUMBER OF": PRINT "THE 'TO' HI-RES PAGE TIMES 32,";
  7. 70  PRINT " AND": PRINT "LASTLY 'CALL 768' TO EXECUTE."
  8. 80  PRINT : PRINT "HERE IS AN EXAMPLE:"
  9. 90  PRINT : PRINT "]10  GOSUB 1000 : REM SET UP ONCE ONLY"
  10. 100  PRINT "]100  POKE 781,32 : REM MOVE TO PAGE 1"
  11. 110  PRINT "]110  POKE 773,64 : REM FROM PAGE 2"
  12. 120  PRINT "]120  CALL 768
  13. 130  POKE 34,0: END 
  14. 1000  FOR I = 768 TO 802: READ X: POKE I,X: NEXT : RETURN 
  15. 1010  DATA 169,0,133,150,169,96,133,151,169,0,133,148,169,64,133,149,162,32,160,0,177,150,145,148,200,208,249,230,151,230,149,202,208,242,96